home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / coppercycle24bit / agacolcycle.s < prev    next >
Text File  |  1980-01-03  |  15KB  |  456 lines
  1. ***********************************************************************
  2. *                            *
  3. *    Aga-colorcyling on a calculated 256-color picture...    *
  4. *                            *
  5. *     ©1993 Nuance United Kingdom All Rights Are Reserved    *
  6. *                            *
  7. ***********************************************************************
  8.  
  9. PICHOOG    EQU    290
  10. PICMOD    EQU    46
  11.  
  12.  
  13.     SECTION    AGA_CYCLING,CODE_C
  14.  
  15.     lea    $dff000,a6
  16.     move.w    $02(a6),OLDDMACON
  17.     move.w    $1e(a6),OLDINTREQ
  18.     move.w    $1c(a6),OLDINTENA
  19.     move.w    #$7fff,d0
  20.     move.w    d0,$96(a6)
  21.     move.w    d0,$9a(a6)
  22.     move.w    d0,$9c(a6)
  23.     bsr.w    MAKEPIC
  24.     bsr.w    SETPLANES
  25.     move.l    #copper,$80(a6)
  26.     move.w    #$83d0,$96(a6)
  27.     clr.w    $88(a6)
  28.     move.l    $64.w,OLDINT
  29.     move.l    #NEWINT,$64.w
  30.     move.w    #$c004,$9a(a6)
  31. Mouse:    BTST    #6,$bfe001
  32.     bne.s    Mouse
  33.     lea    $dff000,a6
  34.     move.w    #$7fff,d0
  35.     move.w    d0,$96(a6)
  36.     move.w    d0,$9a(a6)
  37.     move.w    d0,$9c(a6)
  38.     move.l    OLDINT,$64.w
  39.     or.w    #$8000,OLDDMACON
  40.     or.w    #$8000,OLDINTREQ
  41.     or.w    #$8000,OLDINTENA
  42.     move.w    OLDDMACON(PC),$96(a6)
  43.     move.w    OLDINTREQ(PC),$9c(a6)
  44.     move.w    OLDINTENA(PC),$9a(a6)
  45.     lea    $dff000,a5
  46.     move.l    4.w,a6
  47.     lea    PICFIX(PC),a1
  48.     jsr    -408(a6)
  49.     move.l    d0,a1
  50.     move.l    38(a1),$80(a5)
  51.     jsr    -414(a6)
  52.     clr.w    $88(a5)
  53.     moveq    #0,d0
  54.     rts
  55. OLDDMACON:    dc.w    0
  56. OLDINTREQ:    dc.w    0
  57. OLDINTENA:    dc.w    0
  58. OLDINT:        dc.l    0
  59. PICFIX:    dc.b    "graphics.library",0
  60.     even
  61. ********************************************************************************
  62. ********************************************************************************
  63. NEWINT:
  64.     Movem.l    d0-d7/a0-a6,-(SP)
  65.     bsr.w    SETCOLORS
  66.     movem.l    (SP)+,d0-d7/a0-a6
  67.     move.w    #$004,$dff09c
  68.     RTE
  69. ********************************************************************************
  70. ********************************************************************************
  71. SETPLANES:
  72.     move.l    #PICTURE,d0
  73.     move.w    d0,PLANE1+6
  74.     swap    d0           
  75.     move.w    d0,PLANE1+2
  76.     swap    d0
  77.     add.l    #(PICHOOG*PICMOD),d0
  78.     move.w    d0,PLANE2+6
  79.     swap    d0           
  80.     move.w    d0,PLANE2+2
  81.     swap    d0         
  82.     add.l    #(PICHOOG*PICMOD),d0
  83.     move.w    d0,PLANE3+6
  84.     swap    d0           
  85.     move.w    d0,PLANE3+2
  86.     swap    d0         
  87.     add.l    #(PICHOOG*PICMOD),d0
  88.     move.w    d0,PLANE4+6
  89.     swap    d0           
  90.     move.w    d0,PLANE4+2
  91.     swap    d0         
  92.     add.l    #(PICHOOG*PICMOD),d0
  93.     move.w    d0,PLANE5+6
  94.     swap    d0           
  95.     move.w    d0,PLANE5+2
  96.     swap    d0         
  97.     add.l    #(PICHOOG*PICMOD),d0
  98.     move.w    d0,PLANE6+6
  99.     swap    d0
  100.     move.w    d0,PLANE6+2
  101.     swap    d0         
  102.     add.l    #(PICHOOG*PICMOD),d0
  103.     move.w    d0,PLANE7+6
  104.     swap    d0           
  105.     move.w    d0,PLANE7+2
  106.     swap    d0         
  107.     add.l    #(PICHOOG*PICMOD),d0
  108.     move.w    d0,PLANE8+6
  109.     swap    d0           
  110.     move.w    d0,PLANE8+2
  111.     rts
  112. ********************************************************************************
  113. ********************************************************************************
  114. SETCOLORS:
  115.     move.l    COLORTABEL_POS(PC),a0
  116.     addq.l    #6,COLORTABEL_POS
  117.     cmp.l    #COLOR_TABEL+((3*256)*3),a0
  118.     bmi.s    .SET_OK
  119.     move.l    #COLOR_TABEL,COLORTABEL_POS
  120. .SET_OK:
  121.     lea    PAL_LOW+2(PC),a1        ;4-Lowbits palette
  122.     lea    PAL_HIG+2(PC),a2        ;4-Highbits palette
  123.     moveq    #8-1,d6                ;Number of palettes to do
  124. .NEXTPALETTE:
  125.     moveq    #32-1,d7            ;Number of Colors in palette
  126. .set:    move.b    (a0)+,d0    ;Get red values
  127.     move.b    d0,d1
  128.     and.b    #$f0,d0
  129.     lsr.b    #4,d0
  130.     and.b    #$0f,d1
  131.     move.b    d0,(a1)
  132.     move.b    d1,(a2)
  133.     move.b    (a0)+,d0    ;Get Green values
  134.     move.b    d0,d1
  135.     and.b    #$f0,d0
  136.     and.b    #$0f,d1
  137.     lsl.b    #4,d1
  138.     move.b    d0,1(a1)
  139.     move.b    d1,1(a2)
  140.     move.b    (a0)+,d0    ;Get blue values
  141.     move.b    d0,d1
  142.     and.b    #$f0,d0
  143.     lsr.b    #4,d0
  144.     and.b    #$0f,d1
  145.     or.b    d0,1(a1)
  146.     or.b    d1,1(a2)
  147.     addq.w    #4,a1
  148.     addq.w    #4,a2
  149.     dbf    d7,.set
  150.     add.l    #(32*4)+8,a1
  151.     add.l    #(32*4)+8,a2
  152.     dbf    d6,.NEXTPALETTE
  153.     rts
  154. COLORTABEL_POS:    dc.l    COLOR_TABEL
  155. COLOR_TABEL:
  156. COL1:    set    0
  157. COL2:    set    0
  158. COL3:    set    0
  159.     REPT    256
  160.     dc.b    COL1,COL2,COL3
  161. COL1:    set    COL1+1
  162.     ENDR
  163.  
  164. COL1:    set    255
  165. COL2:    set    0
  166. COL3:    set    0
  167.     REPT    256
  168.     dc.b    COL1,COL2,COL3
  169. COL2:    set    COL2+1
  170. COL3:    set    COL3+1
  171.     ENDR
  172.  
  173. COL1:    set    255
  174. COL2:    set    255
  175. COL3:    set    255
  176.     REPT    256
  177.     dc.b    COL1,COL2,COL3
  178. COL1:    set    COL1-1
  179. COL2:    set    COL2-1
  180. COL3:    set    COL3-1
  181.     ENDR
  182.  
  183. COL1:    set    0
  184. COL2:    set    0
  185. COL3:    set    0
  186.     REPT    256
  187.     dc.b    COL1,COL2,COL3
  188. COL1:    set    COL1+1
  189.     ENDR
  190.  
  191. ********************************************************************************
  192. ********************************************************************************
  193. MAKEPIC:
  194.     lea    PICTURE,a0
  195.     moveq    #0,d0
  196.     move.w    #((PICMOD*8*PICHOOG)/4)-1,d7    
  197. .CLR:    move.l    d0,(a0)+
  198.     dbf    d7,.CLR
  199.     
  200.     lea    PICTURE,a1
  201.     lea    SINE1(PC),a0
  202.     lea    SINE1+450(PC),a2
  203.     move.w    #PICHOOG-1,d4
  204. LINE:    movem.l    a0/a2,-(sp)
  205.     moveq    #PICMOD-1,d7    ;Number of Horizontal BYTES to do
  206. PIXEL:    moveq    #8-1,d6        ;Number of PIXELS to do
  207.     moveq    #7,d5
  208. MAKE:    moveq    #0,d3
  209.     move.w    (a0)+,d0
  210.     cmp.w    #-1,(a0)
  211.     bne.w    CONT_MAKE
  212.     lea    SINE1(PC),a0
  213. CONT_MAKE:
  214.     add.w    (a2)+,d0
  215.     cmp.w    #-1,(a2)
  216.     bne.s    CONT_MAKE2
  217.     lea    SINE1(PC),a2
  218. CONT_MAKE2:
  219.     move.b    d0,d1
  220.     and.b    #1,d1
  221.     lsl.b    d5,d1
  222.     or.b    d1,(a1)
  223.     move.b    d0,d1
  224.     lsr.b    #1,d1
  225.     and.b    #1,d1
  226.     lsl.b    d5,d1
  227.     add.l    #PICHOOG*PICMOD,d3
  228.     or.b    d1,(a1,d3.l)
  229.     move.b    d0,d1
  230.     lsr.b    #2,d1
  231.     and.b    #1,d1
  232.     lsl.b    d5,d1
  233.     add.l    #PICHOOG*PICMOD,d3
  234.     or.b    d1,(a1,d3.l)
  235.     move.b    d0,d1
  236.     lsr.b    #3,d1
  237.     and.b    #1,d1
  238.     lsl.b    d5,d1
  239.     add.l    #PICHOOG*PICMOD,d3
  240.     or.b    d1,(a1,d3.l)
  241.     move.b    d0,d1
  242.     lsr.b    #4,d1
  243.     and.b    #1,d1
  244.     lsl.b    d5,d1
  245.     add.l    #PICHOOG*PICMOD,d3
  246.     or.b    d1,(a1,d3.l)
  247.     move.b    d0,d1
  248.     lsr.b    #5,d1
  249.     and.b    #1,d1
  250.     lsl.b    d5,d1
  251.     add.l    #PICHOOG*PICMOD,d3
  252.     or.b    d1,(a1,d3.l)
  253.     move.b    d0,d1
  254.     lsr.b    #6,d1
  255.     and.b    #1,d1
  256.     lsl.b    d5,d1
  257.     add.l    #PICHOOG*PICMOD,d3
  258.     or.b    d1,(a1,d3.l)
  259.     move.b    d0,d1
  260.     lsr.b    #7,d1
  261.     and.b    #1,d1
  262.     lsl.b    d5,d1
  263.     add.l    #PICHOOG*PICMOD,d3
  264.     or.b    d1,(a1,d3.l)
  265.     subq.w    #1,d5
  266.     dbf    d6,MAKE
  267.     addq.l    #1,a1
  268.     dbf    d7,PIXEL
  269.     movem.l    (SP)+,a0/a2
  270. ;    addq.w    #2,a0
  271.     addq.w    #2,a2
  272.     dbf    d4,LINE
  273.     rts
  274.  
  275. EXIT_MAKE:
  276.     rts
  277.  
  278. SINE1:
  279.     DC.W $003F,$0040,$0041,$0042,$0044,$0045,$0046,$0048,$0049,$004A
  280.     DC.W $004C,$004D,$004E,$004F,$0051,$0052,$0053,$0054,$0056,$0057
  281.     DC.W $0058,$0059,$005B,$005C,$005D,$005E,$005F,$0060,$0061,$0062
  282.     DC.W $0064,$0065,$0066,$0067,$0068,$0069,$006A,$006B,$006C,$006C
  283.     DC.W $006D,$006E,$006F,$0070,$0071,$0071,$0072,$0073,$0074,$0074
  284.     DC.W $0075,$0076,$0076,$0077,$0078,$0078,$0079,$0079,$007A,$007A
  285.     DC.W $007A,$007B,$007B,$007C,$007C,$007C,$007C,$007D,$007D,$007D
  286.     DC.W $007D,$007D,$007D,$007D,$007D,$007E,$007D,$007D,$007D,$007D
  287.     DC.W $007D,$007D,$007D,$007D,$007C,$007C,$007C,$007C,$007B,$007B
  288.     DC.W $007A,$007A,$007A,$0079,$0079,$0078,$0078,$0077,$0076,$0076
  289.     DC.W $0075,$0074,$0074,$0073,$0072,$0071,$0071,$0070,$006F,$006E
  290.     DC.W $006D,$006C,$006C,$006B,$006A,$0069,$0068,$0067,$0066,$0065
  291.     DC.W $0064,$0062,$0061,$0060,$005F,$005E,$005D,$005C,$005B,$0059
  292.     DC.W $0058,$0057,$0056,$0054,$0053,$0052,$0051,$004F,$004E,$004D
  293.     DC.W $004C,$004A,$0049,$0048,$0046,$0045,$0044,$0042,$0041,$0040
  294.     DC.W $003F,$003D,$003C,$003B,$0039,$0038,$0037,$0035,$0034,$0033
  295.     DC.W $0031,$0030,$002F,$002E,$002C,$002B,$002A,$0029,$0027,$0026
  296.     DC.W $0025,$0024,$0022,$0021,$0020,$001F,$001E,$001D,$001C,$001B
  297.     DC.W $0019,$0018,$0017,$0016,$0015,$0014,$0013,$0012,$0011,$0011
  298.     DC.W $0010,$000F,$000E,$000D,$000C,$000C,$000B,$000A,$0009,$0009
  299.     DC.W $0008,$0007,$0007,$0006,$0005,$0005,$0004,$0004,$0003,$0003
  300.     DC.W $0003,$0002,$0002,$0001,$0001,$0001,$0001,$0000,$0000,$0000
  301.     DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  302.     DC.W $0000,$0000,$0000,$0000,$0001,$0001,$0001,$0001,$0002,$0002
  303.     DC.W $0003,$0003,$0003,$0004,$0004,$0005,$0005,$0006,$0007,$0007
  304.     DC.W $0008,$0009,$0009,$000A,$000B,$000C,$000C,$000D,$000E,$000F
  305.     DC.W $0010,$0011,$0011,$0012,$0013,$0014,$0015,$0016,$0017,$0018
  306.     DC.W $0019,$001B,$001C,$001D,$001E,$001F,$0020,$0021,$0022,$0024
  307.     DC.W $0025,$0026,$0027,$0029,$002A,$002B,$002C,$002E,$002F,$0030
  308.     DC.W $0031,$0033,$0034,$0035,$0037,$0038,$0039,$003B,$003C,$003D
  309.  
  310.     DC.W $003F,$0040,$0041,$0042,$0044,$0045,$0046,$0048,$0049,$004A
  311.     DC.W $004C,$004D,$004E,$004F,$0051,$0052,$0053,$0054,$0056,$0057
  312.     DC.W $0058,$0059,$005B,$005C,$005D,$005E,$005F,$0060,$0061,$0062
  313.     DC.W $0064,$0065,$0066,$0067,$0068,$0069,$006A,$006B,$006C,$006C
  314.     DC.W $006D,$006E,$006F,$0070,$0071,$0071,$0072,$0073,$0074,$0074
  315.     DC.W $0075,$0076,$0076,$0077,$0078,$0078,$0079,$0079,$007A,$007A
  316.     DC.W $007A,$007B,$007B,$007C,$007C,$007C,$007C,$007D,$007D,$007D
  317.     DC.W $007D,$007D,$007D,$007D,$007D,$007E,$007D,$007D,$007D,$007D
  318.     DC.W $007D,$007D,$007D,$007D,$007C,$007C,$007C,$007C,$007B,$007B
  319.     DC.W $007A,$007A,$007A,$0079,$0079,$0078,$0078,$0077,$0076,$0076
  320.     DC.W $0075,$0074,$0074,$0073,$0072,$0071,$0071,$0070,$006F,$006E
  321.     DC.W $006D,$006C,$006C,$006B,$006A,$0069,$0068,$0067,$0066,$0065
  322.     DC.W $0064,$0062,$0061,$0060,$005F,$005E,$005D,$005C,$005B,$0059
  323.     DC.W $0058,$0057,$0056,$0054,$0053,$0052,$0051,$004F,$004E,$004D
  324.     DC.W $004C,$004A,$0049,$0048,$0046,$0045,$0044,$0042,$0041,$0040
  325.     DC.W $003F,$003D,$003C,$003B,$0039,$0038,$0037,$0035,$0034,$0033
  326.     DC.W $0031,$0030,$002F,$002E,$002C,$002B,$002A,$0029,$0027,$0026
  327.     DC.W $0025,$0024,$0022,$0021,$0020,$001F,$001E,$001D,$001C,$001B
  328.     DC.W $0019,$0018,$0017,$0016,$0015,$0014,$0013,$0012,$0011,$0011
  329.     DC.W $0010,$000F,$000E,$000D,$000C,$000C,$000B,$000A,$0009,$0009
  330.     DC.W $0008,$0007,$0007,$0006,$0005,$0005,$0004,$0004,$0003,$0003
  331.     DC.W $0003,$0002,$0002,$0001,$0001,$0001,$0001,$0000,$0000,$0000
  332.     DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  333.     DC.W $0000,$0000,$0000,$0000,$0001,$0001,$0001,$0001,$0002,$0002
  334.     DC.W $0003,$0003,$0003,$0004,$0004,$0005,$0005,$0006,$0007,$0007
  335.     DC.W $0008,$0009,$0009,$000A,$000B,$000C,$000C,$000D,$000E,$000F
  336.     DC.W $0010,$0011,$0011,$0012,$0013,$0014,$0015,$0016,$0017,$0018
  337.     DC.W $0019,$001B,$001C,$001D,$001E,$001F,$0020,$0021,$0022,$0024
  338.     DC.W $0025,$0026,$0027,$0029,$002A,$002B,$002C,$002E,$002F,$0030
  339.     DC.W $0031,$0033,$0034,$0035,$0037,$0038,$0039,$003B,$003C,$003D
  340.     DC.W $FFFF
  341. ********************************************************************************
  342. ********************************************************************************
  343. copper:
  344.     dc.l    $01060000
  345.     dc.l    $01000000,$00920028,$009400d8
  346.     dc.l    $008e1a64,$009038d1
  347.     dc.l    $01fc0000,$010c0000
  348.     dc.l    $01020000,$01040024
  349.     dc.w    $0108,$0000,$010a,$0000
  350. PLANE1:    dc.w    $00e0,0000,$00e2,0000
  351. PLANE2:    dc.w    $00e4,0000,$00e6,0000
  352. PLANE3:    dc.w    $00e8,0000,$00ea,0000
  353. PLANE4:    dc.w    $00ec,0000,$00ee,0000
  354. PLANE5:    dc.w    $00f0,0000,$00f2,0000
  355. PLANE6:    dc.w    $00f4,0000,$00f6,0000
  356. PLANE7:    dc.w    $00f8,0000,$00fa,0000
  357. PLANE8:    dc.w    $00fc,0000,$00fe,0000
  358.     dc.l    $01060000
  359. PAL_LOW:dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  360.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  361.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  362.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  363.     dc.l    $01060200
  364. PAL_HIG:dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  365.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  366.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  367.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  368. ;Palette2
  369.     dc.l    $01062000
  370.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  371.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  372.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  373.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  374.     dc.l    $01062200
  375.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  376.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  377.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  378.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  379. ;Palette 3
  380.     dc.l    $01064000
  381.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  382.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  383.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  384.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  385.     dc.l    $01064200
  386.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  387.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  388.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  389.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  390. ;Palette 4    
  391.     dc.l    $01066000
  392.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  393.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  394.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  395.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  396.     dc.l    $01066200
  397.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  398.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  399.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  400.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  401. ;Palette 5    
  402.     dc.l    $01068000
  403.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  404.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  405.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  406.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  407.     dc.l    $01068200
  408.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  409.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  410.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  411.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  412. ;Palette 6    
  413.     dc.l    $0106a000
  414.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  415.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  416.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  417.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  418.     dc.l    $0106a200
  419.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  420.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  421.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  422.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  423. ;Palette 7    
  424.     dc.l    $0106c000
  425.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  426.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  427.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  428.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  429.     dc.l    $0106c200
  430.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  431.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  432.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  433.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  434. ;Palette 8    
  435.     dc.l    $0106e000
  436.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  437.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  438.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  439.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  440.     dc.l    $0106e200
  441.     dc.w    $0180,0,$0182,0,$0184,0,$0186,0,$0188,0,$018a,0,$018c,0,$018e,0
  442.     dc.w    $0190,0,$0192,0,$0194,0,$0196,0,$0198,0,$019a,0,$019c,0,$019e,0
  443.     dc.w    $01a0,0,$01a2,0,$01a4,0,$01a6,0,$01a8,0,$01aa,0,$01ac,0,$01ae,0
  444.     dc.w    $01b0,0,$01b2,0,$01b4,0,$01b6,0,$01b8,0,$01ba,0,$01bc,0,$01be,0
  445.  
  446.  
  447. planes:    dc.l    $01000010
  448.     dc.l    $4001fffe
  449.     dc.l    $009c8004
  450.     dc.l    $fffffffe
  451.  
  452.     SECTION    DATA,BSS_C
  453.  
  454. PICTURE:ds.b    PICHOOG*PICMOD*8
  455.  
  456.